10 REM ********** FREE 64 *************
20 FORA=0TO120:READX:POKE49152+A,X:Y=Y+X:NEXT
30 IFY<>14972THENPRINT"? READ ERROR[145]":END
35 REM ************************
40 REM ** START : SYS49152,1 **
50 REM ** ENDE  : SYS49152,0 **
55 REM ************************
32000 DATA32,253,174,32,158,183,224,0,208,13,120,169,131,141,2,3,169,164,141
32001 DATA3,3,88,96,120,169,36,141,2,3,169,192,141,3,3,88,96,169,0,133,13,32
32002 DATA125,179,32,155,188,165,100,133,98,165,101,133,99,162,144,56,32,73,188
32003 DATA32,223,189,169,40,133,254,169,4,133,255,162,0,189,0,1,201,0,240,5,198
32004 DATA254,232,208,244,160,0,185,0,1,201,0,240,7,9,128,145,254,200,208,242
32005 DATA162,0,160,0,198,254,169,32,145,254,198,254,232,224,4,208,247,76,131
32006 DATA164